home *** CD-ROM | disk | FTP | other *** search
/ William Shakespeare - The Complete Works / William Shakespeare - The Complete Works on CD-ROM.iso / library / exe / titles.bas < prev    next >
Encoding:
BASIC Source File  |  1993-08-02  |  200 b   |  11 lines
  1. OPEN "text.dgw" FOR INPUT AS #1
  2. OPEN "titles.mod" FOR OUTPUT AS #2
  3. DO
  4. LINE INPUT #1, a$
  5.         IF INSTR(a$, "TITLE_") THEN au$ = MID$(a$, 7, 1000): PRINT #2, au$
  6.  
  7.  
  8. LOOP UNTIL EOF(1)
  9. CLOSE
  10.  
  11.